home *** CD-ROM | disk | FTP | other *** search
/ westlife Cardz: Kian / westlife: Kian.iso / pc / trivia.dxr / 00014_Random Trivia Game Frame Behavior.ls < prev    next >
Encoding:
Text File  |  2000-10-23  |  2.2 KB  |  95 lines
  1. property pDataMember, pQuestionNum, pPossiblePoints, pScore, pCorrectAnswer, pCorrectSound, pWrongSound, pEndGameFrame, pAlreadyUsedList
  2.  
  3. on getPropertyDescriptionList me
  4.   list = [:]
  5.   addProp(list, #pDataMember, [#comment: "Data Member", #format: #text, #default: VOID])
  6.   addProp(list, #pCorrectSound, [#comment: "Correct Sound", #format: #string, #default: EMPTY])
  7.   addProp(list, #pWrongSound, [#comment: "Wrong Sound", #format: #string, #default: EMPTY])
  8.   addProp(list, #pEndGameFrame, [#comment: "End Game Frame", #format: #marker, #default: #next])
  9.   return list
  10. end
  11.  
  12. on beginSprite me
  13.   pQuestionNum = 1
  14.   pScore = 0
  15.   showScore(me)
  16.   pAlreadyUsedList = []
  17.   askQuestion(me)
  18. end
  19.  
  20. on askQuestion me
  21.   repeat while 1
  22.     r = random(pDataMember.text.line.count)
  23.     if not getOne(pAlreadyUsedList, r) then
  24.       exit repeat
  25.     end if
  26.   end repeat
  27.   add(pAlreadyUsedList, r)
  28.   text = pDataMember.text.line[r]
  29.   sendAllSprites(#makeVisible)
  30.   the itemDelimiter = ";"
  31.   question = text.item[1]
  32.   answers = text.item[2]
  33.   pCorrectAnswer = value(text.item[3])
  34.   member("Question").text = question
  35.   the itemDelimiter = ","
  36.   repeat with i = 1 to 4
  37.     member("Answer" && i).text = answers.item[i]
  38.   end repeat
  39.   pPossiblePoints = 1000
  40.   showPossiblePoints(me)
  41. end
  42.  
  43. on showPossiblePoints me
  44.   if pPossiblePoints < 0 then
  45.     pPossiblePoints = 0
  46.   end if
  47.   member("Possible Points").text = ":" && pPossiblePoints
  48. end
  49.  
  50. on showScore me
  51.   member("Score").text = ":" && pScore
  52. end
  53.  
  54. on clickAnswer me, n
  55.   if n = pCorrectAnswer then
  56.     if pCorrectSound <> EMPTY then
  57.       puppetSound(pCorrectSound)
  58.     end if
  59.     pScore = pScore + pPossiblePoints
  60.     showScore(me)
  61.     nextQuestion(me)
  62.     return 1
  63.   else
  64.     if pWrongSound <> EMPTY then
  65.       puppetSound(pWrongSound)
  66.     end if
  67.     pPossiblePoints = pPossiblePoints - 100
  68.     showPossiblePoints(me)
  69.     return 0
  70.   end if
  71. end
  72.  
  73. on nextQuestion me
  74.   pQuestionNum = pQuestionNum + 1
  75.   if pQuestionNum > pDataMember.text.line.count then
  76.     if pScore >= 5000 then
  77.       go("hiscore")
  78.     else
  79.       go(pEndGameFrame)
  80.     end if
  81.   else
  82.     askQuestion(me)
  83.   end if
  84. end
  85.  
  86. on exitFrame me
  87.   pPossiblePoints = pPossiblePoints - 1
  88.   showPossiblePoints(me)
  89.   go(the frame)
  90. end
  91.  
  92. on keyDown me
  93.   sendAllSprites(#keyHit, the key)
  94. end
  95.